/ APDL Best Games 3 / APDL Best Games 3.iso / _tdt / frontend

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 09 f2 69 6e 69 | 74 0d 00 14 05 f5 0d 00 |.....ini|t.......|
|00000010| 1e 09 f2 70 6f 6c 6c 0d | 00 28 0d fd 20 71 75 69 |...poll.|.(.. qui|
|00000020| 74 25 3d b9 0d 00 32 17 | c8 99 20 22 57 69 6d 70 |t%=...2.|.. "Wimp|
|00000030| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 0d 00 3c 05 e0 |_CloseDo|wn"..<..|
|00000040| 0d 00 46 05 3a 0d 00 50 | 0a dd f2 69 6e 69 74 0d |..F.:..P|...init.|
|00000050| 00 5a 10 69 6e 64 6c 65 | 6e 25 3d 32 30 30 30 0d |.Z.indle|n%=2000.|
|00000060| 00 64 3a de 20 62 6c 6f | 63 6b 25 20 31 30 30 30 |.d:. blo|ck% 1000|
|00000070| 2c 69 6e 64 62 6c 6f 63 | 6b 25 20 69 6e 64 6c 65 |,indbloc|k% indle|
|00000080| 6e 25 2c 6d 65 6e 75 25 | 20 31 30 30 2c 72 65 73 |n%,menu%| 100,res|
|00000090| 6d 65 6e 75 25 20 31 30 | 30 0d 00 6e 25 74 68 61 |menu% 10|0..n%tha|
|000000a0| 6e 64 6c 65 25 3d a4 69 | 6e 69 74 74 61 73 6b 28 |ndle%=.i|nittask(|
|000000b0| 22 54 44 54 20 46 72 6f | 6e 74 22 2c 32 29 0d 00 |"TDT Fro|nt",2)..|
|000000c0| 78 3f e7 20 52 49 53 43 | 4f 53 25 3d 32 20 8c 20 |x?. RISC|OS%=2 . |
|000000d0| 74 24 3d 22 3c 54 44 54 | 24 44 69 72 3e 2e 54 65 |t$="<TDT|$Dir>.Te|
|000000e0| 6d 70 6c 32 22 20 8b 20 | 74 24 3d 22 3c 54 44 54 |mpl2" . |t$="<TDT|
|000000f0| 24 44 69 72 3e 2e 54 65 | 6d 70 6c 33 22 0d 00 82 |$Dir>.Te|mpl3"...|
|00000100| 32 f2 6f 70 65 6e 74 65 | 6d 70 6c 61 74 65 73 28 |2.opente|mplates(|
|00000110| 74 24 2c 69 6e 64 62 6c | 6f 63 6b 25 2c 69 6e 64 |t$,indbl|ock%,ind|
|00000120| 6c 65 6e 25 2c 62 6c 6f | 63 6b 25 2c 2d 31 29 0d |len%,blo|ck%,-1).|
|00000130| 00 8c 1f 69 6e 66 6f 25 | 3d a4 72 65 61 64 74 65 |...info%|=.readte|
|00000140| 6d 70 6c 61 74 65 28 22 | 49 6e 66 6f 22 29 0d 00 |mplate("|Info")..|
|00000150| 96 1b c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |.... "Wi|mp_Close|
|00000160| 54 65 6d 70 6c 61 74 65 | 22 0d 00 a0 38 69 63 6f |Template|"...8ico|
|00000170| 6e 25 3d a4 63 72 65 61 | 74 65 5f 69 63 6f 6e 28 |n%=.crea|te_icon(|
|00000180| 2d 31 2c 30 2c 31 30 2c | 37 30 2c 38 30 2c 26 33 |-1,0,10,|70,80,&3|
|00000190| 30 30 32 2c 22 21 74 64 | 74 22 2c 30 2c 30 2c 30 |002,"!td|t",0,0,0|
|000001a0| 29 0d 00 aa 15 f2 73 65 | 74 75 70 6d 65 6e 75 28 |).....se|tupmenu(|
|000001b0| 6d 65 6e 75 25 29 0d 00 | b4 18 f2 73 65 74 75 70 |menu%)..|...setup|
|000001c0| 6d 65 6e 75 28 72 65 73 | 6d 65 6e 75 25 29 0d 00 |menu(res|menu%)..|
|000001d0| be 25 c8 99 20 22 4f 53 | 5f 43 68 65 63 6b 4d 6f |.%.. "OS|_CheckMo|
|000001e0| 64 65 56 61 6c 69 64 22 | 2c 32 37 20 b8 20 6d 6f |deValid"|,27 . mo|
|000001f0| 64 65 25 0d 00 c8 4d e7 | 20 6d 6f 64 65 25 3c 3e |de%...M.| mode%<>|
|00000200| 32 37 20 8c 20 21 28 72 | 65 73 6d 65 6e 75 25 2b |27 . !(r|esmenu%+|
|00000210| 32 38 2b 28 32 34 2a 30 | 29 2b 38 29 3d 28 21 28 |28+(24*0|)+8)=(!(|
|00000220| 72 65 73 6d 65 6e 75 25 | 2b 32 38 2b 28 32 34 2a |resmenu%|+28+(24*|
|00000230| 30 29 2b 38 29 29 20 84 | 20 28 31 3c 3c 32 32 29 |0)+8)) .| (1<<22)|
|00000240| 0d 00 d2 30 f4 20 42 65 | 6c 6f 77 20 62 69 74 20 |...0. Be|low bit |
|00000250| 63 68 65 63 6b 73 20 66 | 6f 72 20 67 61 6d 65 73 |checks f|or games|
|00000260| 20 6d 6f 64 65 73 20 3d | 20 6d 6f 64 65 20 34 38 | modes =| mode 48|
|00000270| 0d 00 dc 25 c8 99 20 22 | 4f 53 5f 43 68 65 63 6b |...%.. "|OS_Check|
|00000280| 4d 6f 64 65 56 61 6c 69 | 64 22 2c 34 38 20 b8 20 |ModeVali|d",48 . |
|00000290| 6d 6f 64 65 25 0d 00 e6 | 04 0d 00 f0 a8 e7 20 6d |mode%...|...... m|
|000002a0| 6f 64 65 25 3c 3e 34 38 | 20 8c 20 21 28 72 65 73 |ode%<>48| . !(res|
|000002b0| 6d 65 6e 75 25 2b 32 38 | 2b 28 32 34 2a 31 29 2b |menu%+28|+(24*1)+|
|000002c0| 38 29 3d 28 21 28 72 65 | 73 6d 65 6e 75 25 2b 32 |8)=(!(re|smenu%+2|
|000002d0| 38 2b 28 32 34 2a 31 29 | 2b 38 29 29 20 84 20 28 |8+(24*1)|+8)) . (|
|000002e0| 31 3c 3c 32 32 29 3a 6f | 6b 25 3d a4 74 69 63 6b |1<<22):o|k%=.tick|
|000002f0| 6d 65 6e 75 28 31 2c 72 | 65 73 6d 65 6e 75 25 2c |menu(1,r|esmenu%,|
|00000300| 32 29 3a c8 99 20 22 58 | 4f 53 5f 43 4c 49 22 2c |2):.. "X|OS_CLI",|
|00000310| 22 52 4d 4b 69 6c 6c 20 | 47 61 6d 65 4d 6f 64 65 |"RMKill |GameMode|
|00000320| 73 22 3a 20 8b 20 6f 6b | 25 3d a4 74 69 63 6b 6d |s": . ok|%=.tickm|
|00000330| 65 6e 75 28 31 2c 72 65 | 73 6d 65 6e 75 25 2c 31 |enu(1,re|smenu%,1|
|00000340| 29 0d 00 fa 04 0d 01 04 | 0b 71 75 69 74 25 3d a3 |).......|.quit%=.|
|00000350| 0d 01 0e 05 e1 0d 01 18 | 42 dc 20 22 54 44 54 22 |........|B. "TDT"|
|00000360| 2c 33 2c 30 2c 69 6e 66 | 6f 25 2c 22 49 6e 66 6f |,3,0,inf|o%,"Info|
|00000370| 22 2c 30 2c 72 65 73 6d | 65 6e 75 25 2c 22 52 65 |",0,resm|enu%,"Re|
|00000380| 73 6f 6c 75 74 69 6f 6e | 22 2c 26 38 30 2c 2d 31 |solution|",&80,-1|
|00000390| 2c 22 51 75 69 74 22 0d | 01 22 44 dc 20 22 52 65 |,"Quit".|."D. "Re|
|000003a0| 73 2e 22 2c 34 2c 30 2c | 2d 31 2c 22 48 69 67 68 |s.",4,0,|-1,"High|
|000003b0| 22 2c 30 2c 2d 31 2c 22 | 56 47 41 20 4d 65 64 22 |",0,-1,"|VGA Med"|
|000003c0| 2c 30 2c 2d 31 2c 22 4d | 65 64 69 75 6d 22 2c 26 |,0,-1,"M|edium",&|
|000003d0| 38 30 2c 2d 31 2c 22 4c | 6f 77 22 0d 01 2c 05 3a |80,-1,"L|ow"..,.:|
|000003e0| 0d 01 36 0a dd f2 70 6f | 6c 6c 0d 01 40 25 c8 99 |..6...po|ll..@%..|
|000003f0| 20 22 57 69 6d 70 5f 50 | 6f 6c 6c 22 2c 31 2c 62 | "Wimp_P|oll",1,b|
|00000400| 6c 6f 63 6b 25 20 b8 20 | 72 65 61 73 6f 6e 25 0d |lock% . |reason%.|
|00000410| 01 4a 10 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.J... re|ason% ..|
|00000420| 01 54 26 c9 20 32 20 3a | 20 c8 99 20 22 57 69 6d |.T&. 2 :| .. "Wim|
|00000430| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|00000440| 6c 6f 63 6b 25 0d 01 5e | 27 c9 20 33 20 3a 20 c8 |lock%..^|'. 3 : .|
|00000450| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|00000460| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 25 0d 01 68 24 |dow",,bl|ock%..h$|
|00000470| c9 20 36 20 3a 20 f2 63 | 6c 69 63 6b 28 62 6c 6f |. 6 : .c|lick(blo|
|00000480| 63 6b 25 21 38 2c 62 6c | 6f 63 6b 25 21 31 32 29 |ck%!8,bl|ock%!12)|
|00000490| 0d 01 72 22 c9 20 39 20 | 3a 20 f2 6d 65 6e 75 28 |..r". 9 |: .menu(|
|000004a0| 62 6c 6f 63 6b 25 21 30 | 2c 62 6c 6f 63 6b 25 21 |block%!0|,block%!|
|000004b0| 34 29 0d 01 7c 25 c9 20 | 31 37 2c 31 38 20 3a 20 |4)..|%. |17,18 : |
|000004c0| e7 20 62 6c 6f 63 6b 25 | 21 31 36 3d 30 20 8c 20 |. block%|!16=0 . |
|000004d0| 71 75 69 74 25 3d b9 0d | 01 86 05 cb 0d 01 90 05 |quit%=..|........|
|000004e0| e1 0d 01 9a 05 3a 0d 01 | a4 17 dd f2 6d 65 6e 75 |.....:..|....menu|
|000004f0| 28 73 65 6c 31 25 2c 73 | 65 6c 32 25 29 0d 01 ae |(sel1%,s|el2%)...|
|00000500| 24 c8 99 20 22 57 69 6d | 70 5f 47 65 74 50 6f 69 |$.. "Wim|p_GetPoi|
|00000510| 6e 74 65 72 49 6e 66 6f | 22 2c 2c 62 6c 6f 63 6b |nterInfo|",,block|
|00000520| 25 0d 01 b8 11 62 75 74 | 25 3d 62 6c 6f 63 6b 25 |%....but|%=block%|
|00000530| 21 38 0d 01 c2 17 e7 20 | 73 65 6c 31 25 3d 32 20 |!8..... |sel1%=2 |
|00000540| 8c 20 71 75 69 74 25 3d | b9 0d 01 cc 0f e7 20 73 |. quit%=|...... s|
|00000550| 65 6c 31 25 3d 31 20 8c | 0d 01 d6 13 20 20 e3 20 |el1%=1 .|....  . |
|00000560| 6c 6f 6f 70 25 3d 30 20 | b8 20 33 0d 01 e0 25 20 |loop%=0 |. 3...% |
|00000570| 20 6f 6b 25 3d a4 74 69 | 63 6b 6d 65 6e 75 28 30 | ok%=.ti|ckmenu(0|
|00000580| 2c 72 65 73 6d 65 6e 75 | 25 2c 6c 6f 6f 70 25 29 |,resmenu|%,loop%)|
|00000590| 0d 01 ea 07 20 20 ed 0d | 01 f4 25 20 20 6f 6b 25 |....  ..|..%  ok%|
|000005a0| 3d a4 74 69 63 6b 6d 65 | 6e 75 28 31 2c 72 65 73 |=.tickme|nu(1,res|
|000005b0| 6d 65 6e 75 25 2c 73 65 | 6c 32 25 29 0d 01 fe 07 |menu%,se|l2%)....|
|000005c0| 20 20 cd 0d 02 08 23 e7 | 20 62 75 74 25 3d 31 20 |  ....#.| but%=1 |
|000005d0| 8c 20 f2 73 68 6f 77 6d | 65 6e 75 28 30 2c 30 2c |. .showm|enu(0,0,|
|000005e0| 6d 65 6e 75 25 29 0d 02 | 12 05 e1 0d 02 1c 05 3a |menu%)..|.......:|
|000005f0| 0d 02 26 16 dd f2 63 6c | 69 63 6b 28 62 75 74 25 |..&...cl|ick(but%|
|00000600| 2c 77 69 6e 25 29 0d 02 | 30 50 e7 20 62 75 74 25 |,win%)..|0P. but%|
|00000610| 3d 32 20 80 20 77 69 6e | 25 3d 2d 32 20 8c 20 f2 |=2 . win|%=-2 . .|
|00000620| 73 68 6f 77 6d 65 6e 75 | 28 21 62 6c 6f 63 6b 25 |showmenu|(!block%|
|00000630| 2d 36 34 2c a4 69 63 6f | 6e 62 61 72 6d 65 6e 75 |-64,.ico|nbarmenu|
|00000640| 68 65 69 67 68 74 28 6d | 65 6e 75 25 29 2c 6d 65 |height(m|enu%),me|
|00000650| 6e 75 25 29 3a e1 0d 02 | 3a 1f e7 20 62 75 74 25 |nu%):...|:.. but%|
|00000660| 3d 34 20 80 20 77 69 6e | 25 3d 2d 32 20 8c 20 f2 |=4 . win|%=-2 . .|
|00000670| 72 75 6e 69 74 0d 02 44 | 05 e1 0d 02 4e 05 3a 0d |runit..D|....N.:.|
|00000680| 02 58 0b dd f2 72 75 6e | 69 74 0d 02 62 0b ea 20 |.X...run|it..b.. |
|00000690| 6d 6f 64 65 25 0d 02 6c | 0b 6d 6f 64 65 25 3d 30 |mode%..l|.mode%=0|
|000006a0| 0d 02 76 2a e7 20 a4 74 | 69 63 6b 6d 65 6e 75 28 |..v*. .t|ickmenu(|
|000006b0| 33 2c 72 65 73 6d 65 6e | 75 25 2c 30 29 3d b9 20 |3,resmen|u%,0)=. |
|000006c0| 8c 20 6d 6f 64 65 25 3d | 32 37 0d 02 80 2a e7 20 |. mode%=|27...*. |
|000006d0| a4 74 69 63 6b 6d 65 6e | 75 28 33 2c 72 65 73 6d |.tickmen|u(3,resm|
|000006e0| 65 6e 75 25 2c 31 29 3d | b9 20 8c 20 6d 6f 64 65 |enu%,1)=|. . mode|
|000006f0| 25 3d 34 38 0d 02 8a 2a | e7 20 a4 74 69 63 6b 6d |%=48...*|. .tickm|
|00000700| 65 6e 75 28 33 2c 72 65 | 73 6d 65 6e 75 25 2c 32 |enu(3,re|smenu%,2|
|00000710| 29 3d b9 20 8c 20 6d 6f | 64 65 25 3d 31 32 0d 02 |)=. . mo|de%=12..|
|00000720| 94 29 e7 20 a4 74 69 63 | 6b 6d 65 6e 75 28 33 2c |.). .tic|kmenu(3,|
|00000730| 72 65 73 6d 65 6e 75 25 | 2c 33 29 3d b9 20 8c 20 |resmenu%|,3)=. . |
|00000740| 6d 6f 64 65 25 3d 39 0d | 02 9e 04 0d 02 a8 25 c8 |mode%=9.|......%.|
|00000750| 99 20 22 4f 53 5f 43 4c | 49 22 2c 22 53 65 74 20 |. "OS_CL|I","Set |
|00000760| 54 44 54 4d 6f 64 65 20 | 22 2b c3 6d 6f 64 65 25 |TDTMode |"+.mode%|
|00000770| 0d 02 b2 04 0d 02 bc 2e | c8 99 20 22 57 69 6d 70 |........|.. "Wimp|
|00000780| 5f 53 74 61 72 74 54 61 | 73 6b 22 2c 22 3c 54 44 |_StartTa|sk","<TD|
|00000790| 54 24 44 69 72 3e 2e 21 | 52 75 6e 41 63 74 75 61 |T$Dir>.!|RunActua|
|000007a0| 6c 22 0d 02 c6 05 e1 0d | 02 d0 05 3a 0d 02 da 1f |l"......|...:....|
|000007b0| f4 20 46 4e 63 72 65 61 | 74 65 5f 69 63 6f 6e 20 |. FNcrea|te_icon |
|000007c0| 20 20 20 20 2d 20 47 75 | 65 73 73 0d 02 e4 46 dd |    - Gu|ess...F.|
|000007d0| a4 63 72 65 61 74 65 5f | 69 63 6f 6e 28 77 68 61 |.create_|icon(wha|
|000007e0| 6e 25 2c 69 78 25 2c 69 | 79 25 2c 69 77 25 2c 69 |n%,ix%,i|y%,iw%,i|
|000007f0| 68 25 2c 66 6c 61 67 25 | 2c 74 65 78 74 24 2c 70 |h%,flag%|,text$,p|
|00000800| 72 74 31 25 2c 70 72 74 | 32 25 2c 70 74 72 33 25 |rt1%,prt|2%,ptr3%|
|00000810| 29 0d 02 ee 0c ea 20 62 | 6c 6f 63 6b 25 0d 02 f8 |)..... b|lock%...|
|00000820| 0f de 20 62 6c 6f 63 6b | 25 20 34 30 0d 03 02 11 |.. block|% 40....|
|00000830| 21 62 6c 6f 63 6b 25 3d | 77 68 61 6e 25 0d 03 0c |!block%=|whan%...|
|00000840| 10 62 6c 6f 63 6b 25 21 | 34 3d 69 78 25 0d 03 16 |.block%!|4=ix%...|
|00000850| 10 62 6c 6f 63 6b 25 21 | 38 3d 69 79 25 0d 03 20 |.block%!|8=iy%.. |
|00000860| 15 62 6c 6f 63 6b 25 21 | 31 32 3d 69 78 25 2b 69 |.block%!|12=ix%+i|
|00000870| 77 25 0d 03 2a 15 62 6c | 6f 63 6b 25 21 31 36 3d |w%..*.bl|ock%!16=|
|00000880| 69 79 25 2b 69 68 25 0d | 03 34 13 62 6c 6f 63 6b |iy%+ih%.|.4.block|
|00000890| 25 21 32 30 3d 66 6c 61 | 67 25 0d 03 3e 23 e7 20 |%!20=fla|g%..>#. |
|000008a0| 70 72 74 31 25 3d 30 20 | 80 20 70 72 74 32 25 3d |prt1%=0 |. prt2%=|
|000008b0| 30 20 80 20 70 74 72 33 | 25 3d 30 20 8c 0d 03 48 |0 . ptr3|%=0 ...H|
|000008c0| 16 24 28 62 6c 6f 63 6b | 25 2b 32 34 29 3d 74 65 |.$(block|%+24)=te|
|000008d0| 78 74 24 0d 03 52 05 cc | 0d 03 5c 13 62 6c 6f 63 |xt$..R..|..\.bloc|
|000008e0| 6b 25 21 32 34 3d 70 72 | 74 31 25 0d 03 66 13 62 |k%!24=pr|t1%..f.b|
|000008f0| 6c 6f 63 6b 25 21 32 38 | 3d 70 72 74 32 25 0d 03 |lock%!28|=prt2%..|
|00000900| 70 13 62 6c 6f 63 6b 25 | 21 33 32 3d 70 74 72 33 |p.block%|!32=ptr3|
|00000910| 25 0d 03 7a 05 cd 0d 03 | 84 2b c8 99 20 22 57 69 |%..z....|.+.. "Wi|
|00000920| 6d 70 5f 43 72 65 61 74 | 65 49 63 6f 6e 22 2c 2c |mp_Creat|eIcon",,|
|00000930| 62 6c 6f 63 6b 25 20 b8 | 20 69 68 61 6e 64 6c 65 |block% .| ihandle|
|00000940| 25 0d 03 8e 0d 3d 69 68 | 61 6e 64 6c 65 25 0d 03 |%....=ih|andle%..|
|00000950| 98 04 0d 03 a2 71 f4 20 | 50 52 4f 43 73 65 74 75 |.....q. |PROCsetu|
|00000960| 70 6d 65 6e 75 28 6d 65 | 6e 75 25 29 20 20 20 20 |pmenu(me|nu%)    |
|00000970| 2d 20 49 6e 69 74 69 61 | 6c 69 73 65 73 20 61 20 |- Initia|lises a |
|00000980| 4d 65 6e 75 20 44 69 6d | 20 28 69 6e 20 6d 65 6e |Menu Dim| (in men|
|00000990| 75 25 29 20 4d 75 73 74 | 20 68 61 76 65 20 44 61 |u%) Must| have Da|
|000009a0| 74 61 20 52 45 53 54 4f | 52 45 44 20 74 6f 20 62 |ta RESTO|RED to b|
|000009b0| 65 66 6f 72 65 20 63 61 | 6c 6c 69 6e 67 20 70 72 |efore ca|lling pr|
|000009c0| 6f 63 2e 0d 03 ac 16 dd | f2 73 65 74 75 70 6d 65 |oc......|.setupme|
|000009d0| 6e 75 28 6d 65 6e 75 25 | 29 0d 03 b6 23 ea 20 74 |nu(menu%|)...#. t|
|000009e0| 69 74 6c 65 24 2c 6e 75 | 6d 25 2c 77 69 64 74 68 |itle$,nu|m%,width|
|000009f0| 25 2c 70 74 72 25 2c 69 | 74 65 6d 24 0d 03 c0 1f |%,ptr%,i|tem$....|
|00000a00| f3 20 74 69 74 6c 65 24 | 2c 6e 75 6d 25 3a 24 6d |. title$|,num%:$m|
|00000a10| 65 6e 75 25 3d 74 69 74 | 6c 65 24 0d 03 ca 1b 77 |enu%=tit|le$....w|
|00000a20| 69 64 74 68 25 3d 28 a9 | 28 74 69 74 6c 65 24 29 |idth%=(.|(title$)|
|00000a30| 2d 31 29 2a 31 36 0d 03 | d4 2d 6d 65 6e 75 25 21 |-1)*16..|.-menu%!|
|00000a40| 31 32 3d 26 30 30 30 37 | 30 32 30 37 3a 6d 65 6e |12=&0007|0207:men|
|00000a50| 75 25 21 32 30 3d 34 34 | 3a 6d 65 6e 75 25 21 32 |u%!20=44|:menu%!2|
|00000a60| 34 3d 30 0d 03 de 1f 70 | 74 72 25 3d 6d 65 6e 75 |4=0....p|tr%=menu|
|00000a70| 25 2b 32 38 3a e3 20 69 | 25 3d 31 20 b8 20 6e 75 |%+28:. i|%=1 . nu|
|00000a80| 6d 25 0d 03 e8 1b f3 20 | 6d 66 6c 61 67 73 25 2c |m%..... |mflags%,|
|00000a90| 73 75 62 70 74 72 25 2c | 69 74 65 6d 24 0d 03 f2 |subptr%,|item$...|
|00000aa0| 20 21 70 74 72 25 3d 6d | 66 6c 61 67 73 25 3a 70 | !ptr%=m|flags%:p|
|00000ab0| 74 72 25 21 34 3d 73 75 | 62 70 74 72 25 0d 03 fc |tr%!4=su|bptr%...|
|00000ac0| 24 70 74 72 25 21 38 3d | 26 37 30 30 30 30 32 31 |$ptr%!8=|&7000021|
|00000ad0| 3a 24 28 70 74 72 25 2b | 31 32 29 3d 69 74 65 6d |:$(ptr%+|12)=item|
|00000ae0| 24 0d 04 06 16 61 25 3d | 28 a9 28 69 74 65 6d 24 |$....a%=|(.(item$|
|00000af0| 29 2b 31 29 2a 31 36 0d | 04 10 19 e7 20 61 25 3e |)+1)*16.|.... a%>|
|00000b00| 77 69 64 74 68 25 20 77 | 69 64 74 68 25 3d 61 25 |width% w|idth%=a%|
|00000b10| 0d 04 1a 0e 70 74 72 25 | 2b 3d 32 34 3a ed 0d 04 |....ptr%|+=24:...|
|00000b20| 24 13 6d 65 6e 75 25 21 | 31 36 3d 77 69 64 74 68 |$.menu%!|16=width|
|00000b30| 25 0d 04 2e 04 0d 04 38 | 05 e1 0d 04 42 04 0d 04 |%......8|....B...|
|00000b40| 4c 40 f4 20 50 52 4f 43 | 73 68 6f 77 6d 65 6e 75 |L@. PROC|showmenu|
|00000b50| 20 20 20 20 20 2d 20 4f | 70 65 6e 73 20 73 70 65 |     - O|pens spe|
|00000b60| 63 69 66 69 65 64 20 6d | 65 6e 75 20 61 74 20 70 |cified m|enu at p|
|00000b70| 6c 61 63 65 20 72 65 71 | 75 69 72 65 64 2e 0d 04 |lace req|uired...|
|00000b80| 56 1d dd f2 73 68 6f 77 | 6d 65 6e 75 28 6d 78 25 |V...show|menu(mx%|
|00000b90| 2c 6d 79 25 2c 6d 65 6e | 75 25 29 0d 04 60 27 c8 |,my%,men|u%)..`'.|
|00000ba0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00000bb0| 6e 75 22 2c 2c 6d 65 6e | 75 25 2c 6d 78 25 2c 6d |nu",,men|u%,mx%,m|
|00000bc0| 79 25 0d 04 6a 05 e1 0d | 04 74 04 0d 04 7e 70 f4 |y%..j...|.t...~p.|
|00000bd0| 20 46 4e 72 65 70 6f 72 | 74 28 65 72 72 24 2c 66 | FNrepor|t(err$,f|
|00000be0| 6c 61 67 25 29 20 20 20 | 2d 20 4f 70 65 6e 73 20 |lag%)   |- Opens |
|00000bf0| 6e 6f 6e 20 6d 75 6c 74 | 69 74 61 73 6b 69 6e 67 |non mult|itasking|
|00000c00| 20 65 72 72 6f 72 20 62 | 6f 78 20 77 69 74 68 20 | error b|ox with |
|00000c10| 73 70 65 63 69 66 69 65 | 64 20 62 75 74 74 6f 6e |specifie|d button|
|00000c20| 73 2e 20 52 65 74 75 72 | 6e 73 20 74 68 65 20 65 |s. Retur|ns the e|
|00000c30| 72 72 6f 72 20 63 6c 69 | 63 6b 2e 0d 04 88 18 dd |rror cli|ck......|
|00000c40| a4 72 65 70 6f 72 74 28 | 65 72 72 24 2c 66 6c 61 |.report(|err$,fla|
|00000c50| 67 25 29 0d 04 92 0c ea | 20 62 6c 6f 63 6b 25 0d |g%).....| block%.|
|00000c60| 04 9c 10 de 20 62 6c 6f | 63 6b 25 20 32 35 35 0d |.... blo|ck% 255.|
|00000c70| 04 a6 0f 21 62 6c 6f 63 | 6b 25 3d 32 35 35 0d 04 |...!bloc|k%=255..|
|00000c80| b0 0e 6e 61 6d 65 24 3d | 61 70 70 24 0d 04 ba 2e |..name$=|app$....|
|00000c90| e7 20 66 6c 61 67 25 20 | 80 20 31 36 20 8c 20 6e |. flag% |. 16 . n|
|00000ca0| 61 6d 65 24 3d 22 4d 65 | 73 73 61 67 65 20 66 72 |ame$="Me|ssage fr|
|00000cb0| 6f 6d 20 22 2b 6e 61 6d | 65 24 0d 04 c4 17 24 28 |om "+nam|e$....$(|
|00000cc0| 62 6c 6f 63 6b 25 2b 34 | 29 3d 65 72 72 24 2b bd |block%+4|)=err$+.|
|00000cd0| 30 0d 04 ce 39 c8 99 20 | 22 57 69 6d 70 5f 52 65 |0...9.. |"Wimp_Re|
|00000ce0| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 6c 6f 63 6b |portErro|r",block|
|00000cf0| 25 2c 66 6c 61 67 25 2c | 6e 61 6d 65 24 20 b8 20 |%,flag%,|name$ . |
|00000d00| 2c 65 72 72 63 6c 69 63 | 6b 25 0d 04 d8 0e 3d 65 |,errclic|k%....=e|
|00000d10| 72 72 63 6c 69 63 6b 25 | 0d 04 e2 04 0d 04 ec 36 |rrclick%|.......6|
|00000d20| f4 20 50 52 4f 43 65 72 | 72 6f 72 20 20 20 2d 20 |. PROCer|ror   - |
|00000d30| 54 6f 20 62 65 20 63 61 | 6c 6c 65 64 20 77 68 65 |To be ca|lled whe|
|00000d40| 6e 20 61 6e 20 65 72 72 | 6f 72 20 6f 63 63 75 72 |n an err|or occur|
|00000d50| 65 73 0d 04 f6 0f dd f2 | 65 72 72 6f 72 28 61 24 |es......|error(a$|
|00000d60| 29 0d 05 00 18 65 6e 64 | 25 3d a4 72 65 70 6f 72 |)....end|%=.repor|
|00000d70| 74 28 61 24 2c 25 31 30 | 29 0d 05 0a 17 c8 99 20 |t(a$,%10|)...... |
|00000d80| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00000d90| 0d 05 14 05 e0 0d 05 1e | 6b f4 20 20 20 50 52 4f |........|k.   PRO|
|00000da0| 43 6f 70 65 6e 74 65 6d | 70 6c 61 74 65 73 28 66 |Copentem|plates(f|
|00000db0| 69 6c 65 6e 61 6d 65 24 | 2c 49 6d 61 69 6e 74 65 |ilename$|,Imainte|
|00000dc0| 6d 70 69 6e 64 25 2c 49 | 74 65 6d 70 6c 69 6d 69 |mpind%,I|templimi|
|00000dd0| 74 25 2c 49 77 69 6e 64 | 6f 77 73 74 6f 72 65 25 |t%,Iwind|owstore%|
|00000de0| 2c 66 6f 6e 74 73 25 29 | 20 20 2d 20 4f 70 65 6e |,fonts%)|  - Open|
|00000df0| 73 20 54 65 6d 70 6c 61 | 74 65 20 66 69 6c 65 2b |s Templa|te file+|
|00000e00| 0d 05 28 4e dd f2 6f 70 | 65 6e 74 65 6d 70 6c 61 |..(N..op|entempla|
|00000e10| 74 65 73 28 66 69 6c 65 | 6e 61 6d 65 24 2c 49 6d |tes(file|name$,Im|
|00000e20| 61 69 6e 74 65 6d 70 69 | 6e 64 25 2c 49 74 65 6d |aintempi|nd%,Item|
|00000e30| 70 6c 69 6d 69 74 25 2c | 49 77 69 6e 64 6f 77 73 |plimit%,|Iwindows|
|00000e40| 74 6f 72 65 25 2c 49 66 | 6f 6e 74 73 25 29 0d 05 |tore%,If|onts%)..|
|00000e50| 32 0b ea 20 6c 6f 6f 70 | 25 0d 05 3c 66 6d 61 69 |2.. loop|%..<fmai|
|00000e60| 6e 74 65 6d 70 69 6e 64 | 25 3d 49 6d 61 69 6e 74 |ntempind|%=Imaint|
|00000e70| 65 6d 70 69 6e 64 25 3a | 74 65 6d 70 6c 69 6d 69 |empind%:|templimi|
|00000e80| 74 25 3d 49 74 65 6d 70 | 6c 69 6d 69 74 25 3a 77 |t%=Itemp|limit%:w|
|00000e90| 69 6e 64 6f 77 73 74 6f | 72 65 25 3d 49 77 69 6e |indowsto|re%=Iwin|
|00000ea0| 64 6f 77 73 74 6f 72 65 | 25 3a 66 6f 6e 74 73 70 |dowstore|%:fontsp|
|00000eb0| 6f 69 6e 74 65 72 25 3d | 49 66 6f 6e 74 73 25 0d |ointer%=|Ifonts%.|
|00000ec0| 05 46 25 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.F%.. "W|imp_Open|
|00000ed0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 66 69 6c 65 6e |Template|",,filen|
|00000ee0| 61 6d 65 24 0d 05 50 21 | 70 6f 69 6e 74 65 72 25 |ame$..P!|pointer%|
|00000ef0| 3d 6d 61 69 6e 74 65 6d | 70 69 6e 64 25 3a 6e 65 |=maintem|pind%:ne|
|00000f00| 78 74 25 3d 30 0d 05 5a | 49 e7 20 66 6f 6e 74 73 |xt%=0..Z|I. fonts|
|00000f10| 70 6f 69 6e 74 65 72 25 | 3c 3e 2d 31 20 8c 20 e3 |pointer%|<>-1 . .|
|00000f20| 20 6c 6f 6f 70 25 3d 30 | 20 b8 20 26 31 30 30 20 | loop%=0| . &100 |
|00000f30| 53 54 50 45 20 34 3a 66 | 6f 6e 74 73 70 6f 69 6e |STPE 4:f|ontspoin|
|00000f40| 74 65 72 25 21 6c 6f 6f | 70 25 3d 30 3a ed 0d 05 |ter%!loo|p%=0:...|
|00000f50| 64 05 e1 0d 05 6e 04 0d | 05 78 55 f4 20 20 20 46 |d....n..|.xU.   F|
|00000f60| 4e 72 65 61 64 74 65 6d | 70 6c 61 74 65 28 77 69 |Nreadtem|plate(wi|
|00000f70| 6e 6e 61 6d 65 24 29 20 | 20 20 2d 20 52 65 61 64 |nname$) |  - Read|
|00000f80| 73 20 61 20 77 69 6e 64 | 6f 77 20 64 65 66 69 6e |s a wind|ow defin|
|00000f90| 69 74 69 6f 6e 20 6f 66 | 66 20 74 68 65 20 74 65 |ition of|f the te|
|00000fa0| 6d 70 6c 61 74 65 20 66 | 69 6c 65 2e 0d 05 82 1c |mplate f|ile.....|
|00000fb0| dd a4 72 65 61 64 74 65 | 6d 70 6c 61 74 65 28 77 |..readte|mplate(w|
|00000fc0| 69 6e 6e 61 6d 65 24 29 | 0d 05 8c 0b ea 20 6e 61 |inname$)|..... na|
|00000fd0| 6d 65 25 0d 05 96 0e de | 20 6e 61 6d 65 25 20 31 |me%.....| name% 1|
|00000fe0| 31 0d 05 a0 13 24 6e 61 | 6d 65 25 3d 77 69 6e 6e |1....$na|me%=winn|
|00000ff0| 61 6d 65 24 0d 05 aa 79 | c8 99 20 22 57 69 6d 70 |ame$...y|.. "Wimp|
|00001000| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00001010| 77 69 6e 64 6f 77 73 74 | 6f 72 65 25 2c 70 6f 69 |windowst|ore%,poi|
|00001020| 6e 74 65 72 25 2c 6d 61 | 69 6e 74 65 6d 70 69 6e |nter%,ma|intempin|
|00001030| 64 25 2b 74 65 6d 70 6c | 69 6d 69 74 25 2c 66 6f |d%+templ|imit%,fo|
|00001040| 6e 74 73 70 6f 69 6e 74 | 65 72 25 2c 6e 61 6d 65 |ntspoint|er%,name|
|00001050| 25 2c 6e 65 78 74 25 20 | b8 20 2c 2c 70 6f 69 6e |%,next% |. ,,poin|
|00001060| 74 65 72 25 2c 2c 2c 2c | 6e 65 78 74 25 0d 05 b4 |ter%,,,,|next%...|
|00001070| 5a e7 20 6e 65 78 74 25 | 3d 30 20 8c 20 f2 65 72 |Z. next%|=0 . .er|
|00001080| 72 6f 72 28 22 57 69 6e | 64 6f 77 20 64 65 66 69 |ror("Win|dow defi|
|00001090| 6e 69 74 69 6f 6e 20 6e | 6f 74 20 66 6f 75 6e 64 |nition n|ot found|
|000010a0| 20 69 6e 20 54 65 6d 70 | 6c 61 74 65 20 28 49 64 | in Temp|late (Id|
|000010b0| 65 6e 74 69 66 69 65 72 | 3d 22 2b 24 6e 61 6d 65 |entifier|="+$name|
|000010c0| 25 2b 22 29 2e 22 29 0d | 05 be 38 c8 99 20 22 57 |%+").").|..8.. "W|
|000010d0| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|000010e0| 22 2c 2c 77 69 6e 64 6f | 77 73 74 6f 72 65 25 20 |",,windo|wstore% |
|000010f0| b8 20 77 69 6e 64 6f 77 | 68 61 6e 64 6c 65 25 0d |. window|handle%.|
|00001100| 05 c8 12 3d 77 69 6e 64 | 6f 77 68 61 6e 64 6c 65 |...=wind|owhandle|
|00001110| 25 0d 05 d2 04 0d 05 dc | 2f f4 20 50 52 4f 43 6f |%.......|/. PROCo|
|00001120| 70 65 6e 77 69 6e 64 6f | 77 20 20 20 2d 20 4f 70 |penwindo|w   - Op|
|00001130| 65 6e 73 20 77 69 6e 64 | 6f 77 20 61 74 20 66 72 |ens wind|ow at fr|
|00001140| 6f 6e 74 2e 0d 05 e6 2c | dd f2 6f 70 65 6e 77 69 |ont....,|..openwi|
|00001150| 6e 64 6f 77 28 77 69 6e | 64 6f 77 68 61 6e 64 6c |ndow(win|dowhandl|
|00001160| 65 25 2c 77 69 6e 64 6f | 77 73 74 6f 72 65 25 29 |e%,windo|wstore%)|
|00001170| 0d 05 f0 1f 21 77 69 6e | 64 6f 77 73 74 6f 72 65 |....!win|dowstore|
|00001180| 25 3d 77 69 6e 64 6f 77 | 68 61 6e 64 6c 65 25 0d |%=window|handle%.|
|00001190| 05 fa 2a c8 99 20 22 57 | 69 6d 70 5f 47 65 74 57 |..*.. "W|imp_GetW|
|000011a0| 69 6e 64 6f 77 53 74 61 | 74 65 22 2c 2c 77 69 6e |indowSta|te",,win|
|000011b0| 64 6f 77 73 74 6f 72 65 | 25 0d 06 04 19 21 28 77 |dowstore|%....!(w|
|000011c0| 69 6e 64 6f 77 73 74 6f | 72 65 25 2b 32 38 29 3d |indowsto|re%+28)=|
|000011d0| 2d 31 0d 06 0e 26 c8 99 | 20 22 57 69 6d 70 5f 4f |-1...&..| "Wimp_O|
|000011e0| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 77 69 6e 64 |penWindo|w",,wind|
|000011f0| 6f 77 73 74 6f 72 65 25 | 0d 06 18 05 e1 0d 06 22 |owstore%|......."|
|00001200| 04 0d 06 2c 2d f4 20 46 | 4e 69 6e 69 74 74 61 73 |...,-. F|Ninittas|
|00001210| 6b 20 20 20 20 20 20 2d | 20 49 6e 69 74 69 61 6c |k      -| Initial|
|00001220| 69 73 65 73 20 74 68 65 | 20 74 61 73 6b 2e 0d 06 |ises the| task...|
|00001230| 36 1e dd a4 69 6e 69 74 | 74 61 73 6b 28 49 61 70 |6...init|task(Iap|
|00001240| 70 24 2c 49 52 49 53 43 | 4f 53 25 29 0d 06 40 48 |p$,IRISC|OS%)..@H|
|00001250| c8 99 20 22 57 69 6d 70 | 5f 49 6e 69 74 69 61 6c |.. "Wimp|_Initial|
|00001260| 69 73 65 22 2c 49 52 49 | 53 43 4f 53 25 2a 31 30 |ise",IRI|SCOS%*10|
|00001270| 30 2c 26 34 42 35 33 34 | 31 35 34 2c 49 61 70 70 |0,&4B534|154,Iapp|
|00001280| 24 20 b8 20 52 49 53 43 | 4f 53 25 2c 54 68 61 6e |$ . RISC|OS%,Than|
|00001290| 64 6c 65 25 0d 06 4a 17 | 52 49 53 43 4f 53 25 3d |dle%..J.|RISCOS%=|
|000012a0| 52 49 53 43 4f 53 25 2f | 31 30 30 0d 06 54 0e 61 |RISCOS%/|100..T.a|
|000012b0| 70 70 24 3d 49 61 70 70 | 24 0d 06 5e 23 ee 20 85 |pp$=Iapp|$..^#. .|
|000012c0| 20 3a 20 f2 65 72 72 6f | 72 28 f6 24 2b 22 20 61 | : .erro|r(.$+" a|
|000012d0| 74 20 6c 69 6e 65 20 22 | 2b c3 9e 29 0d 06 68 0d |t line "|+..)..h.|
|000012e0| 3d 54 68 61 6e 64 6c 65 | 25 0d 06 72 04 0d 06 7c |=Thandle|%..r...||
|000012f0| 41 f4 20 46 4e 69 63 6f | 6e 62 61 72 6d 65 6e 75 |A. FNico|nbarmenu|
|00001300| 68 65 69 67 68 74 28 6d | 65 6e 75 25 29 20 20 2d |height(m|enu%)  -|
|00001310| 20 46 69 6e 64 73 20 68 | 65 69 67 68 74 20 6f 66 | Finds h|eight of|
|00001320| 20 69 63 6f 6e 62 61 72 | 20 6d 65 6e 75 73 0d 06 | iconbar| menus..|
|00001330| 86 1e dd a4 69 63 6f 6e | 62 61 72 6d 65 6e 75 68 |....icon|barmenuh|
|00001340| 65 69 67 68 74 28 6d 65 | 6e 75 25 29 0d 06 90 0b |eight(me|nu%)....|
|00001350| ea 20 68 69 67 68 25 0d | 06 9a 0c 68 69 67 68 25 |. high%.|...high%|
|00001360| 3d 39 36 0d 06 a4 17 6c | 6f 6f 70 25 3d 2d 31 3a |=96....l|oop%=-1:|
|00001370| f5 3a 6c 6f 6f 70 25 2b | 3d 31 0d 06 ae 34 e7 20 |.:loop%+|=1...4. |
|00001380| 28 21 28 6d 65 6e 75 25 | 2b 28 6c 6f 6f 70 25 2a |(!(menu%|+(loop%*|
|00001390| 32 34 29 2b 32 38 29 20 | 80 20 25 31 30 29 3d 25 |24)+28) |. %10)=%|
|000013a0| 31 30 20 8c 20 68 69 67 | 68 25 2b 3d 32 34 0d 06 |10 . hig|h%+=24..|
|000013b0| b8 0d 68 69 67 68 25 2b | 3d 34 34 0d 06 c2 34 fd |..high%+|=44...4.|
|000013c0| 20 28 21 28 6d 65 6e 75 | 25 2b 28 6c 6f 6f 70 25 | (!(menu|%+(loop%|
|000013d0| 2a 32 34 29 2b 32 38 29 | 20 80 20 25 31 30 30 30 |*24)+28)| . %1000|
|000013e0| 30 30 30 30 29 3d 25 31 | 30 30 30 30 30 30 30 0d |0000)=%1|0000000.|
|000013f0| 06 cc 0a 3d 68 69 67 68 | 25 0d 06 d6 05 3a 0d 06 |...=high|%....:..|
|00001400| e0 24 dd a4 74 69 63 6b | 6d 65 6e 75 28 72 65 61 |.$..tick|menu(rea|
|00001410| 64 73 65 74 25 2c 6d 65 | 6e 75 25 2c 69 74 65 6d |dset%,me|nu%,item|
|00001420| 25 29 0d 06 ea 4e e7 20 | 72 65 61 64 73 65 74 25 |%)...N. |readset%|
|00001430| 3d 30 20 8c 20 21 28 6d | 65 6e 75 25 2b 28 69 74 |=0 . !(m|enu%+(it|
|00001440| 65 6d 25 2a 32 34 29 2b | 32 38 29 3d 28 21 28 6d |em%*24)+|28)=(!(m|
|00001450| 65 6e 75 25 2b 28 69 74 | 65 6d 25 2a 32 34 29 2b |enu%+(it|em%*24)+|
|00001460| 32 38 29 20 80 20 25 31 | 31 31 31 31 31 31 30 29 |28) . %1|1111110)|
|00001470| 0d 06 f4 46 e7 20 72 65 | 61 64 73 65 74 25 3d 31 |...F. re|adset%=1|
|00001480| 20 8c 20 21 28 6d 65 6e | 75 25 2b 28 69 74 65 6d | . !(men|u%+(item|
|00001490| 25 2a 32 34 29 2b 32 38 | 29 3d 28 21 28 6d 65 6e |%*24)+28|)=(!(men|
|000014a0| 75 25 2b 28 69 74 65 6d | 25 2a 32 34 29 2b 32 38 |u%+(item|%*24)+28|
|000014b0| 29 20 84 20 31 29 0d 06 | fe 46 e7 20 72 65 61 64 |) . 1)..|.F. read|
|000014c0| 73 65 74 25 3d 32 20 8c | 20 21 28 6d 65 6e 75 25 |set%=2 .| !(menu%|
|000014d0| 2b 28 69 74 65 6d 25 2a | 32 34 29 2b 32 38 29 3d |+(item%*|24)+28)=|
|000014e0| 28 21 28 6d 65 6e 75 25 | 2b 28 69 74 65 6d 25 2a |(!(menu%|+(item%*|
|000014f0| 32 34 29 2b 32 38 29 20 | 82 20 31 29 0d 07 08 22 |24)+28) |. 1)..."|
|00001500| 3d 2d 28 21 28 6d 65 6e | 75 25 2b 28 69 74 65 6d |=-(!(men|u%+(item|
|00001510| 25 2a 32 34 29 2b 32 38 | 29 20 80 20 31 29 0d 07 |%*24)+28|) . 1)..|
|00001520| 12 04 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+